Chip 1998 February/CHIP Şubat 1998.iso/drivers/SESK/tutroppl/INSTALL.DAT

Text File | 1996-10-31 | 57KB | 1,981 lines

/*
 * NEW TROPEZ PLUS INSTALL
 *
 * INSTALL.DAT
 *
 * Project: TROPEZ PLUS
 * Version: 1.1
 * 4/26/96
 *
 Added quick install option
 Eliminated hardware test routine
 Fixed Midimapper problem
 */

@DefineProject
    @Name = "TROPEZ PLUS"
    @Version = "1.1"
    @Subdir = "\\tbeach"
    @OutDrive = C
@EndProject

/*
Options:
    1-4 Install, uninstall, configure, exit
    11-12 Full/custom installation
    21-22 DOS, Windows installation
    31-37 Windows apps to install
    38 Regular drivers - only used for configuration
    40 Copy in midimap.cfg to make Tropez Plus card default MIDI device?
    50 Delete whole tropez directory?
    60 Reboot after installation?
    70 Test hardware settings?

    101-108 Main sound card settings menu
    111, 121, 131, 141, 151 for each of the main sound card settings

    201-203    Sound Blaster settings menu
    211, 221, 231  for each of the SB settings
*/

// Variable definitions and default settings

@DefineVars
    @Qstring @initexe
    @Integer @QuickInstall = 0
    @Integer @Choice = 0
    @Integer @GetWin
    @Dir     @EnteredWinDir = "\\WINDOWS"
    @Drive   @EnteredWinDrive = C
    @Qstring @MainPort = "534"
    @Qstring @MainIRQ = "5"
    @Qstring @MainDMA = "1"
    //Added 3/5 for Full Duplex
    @Qstring @RecDMA = "0"
    @Qstring @WFPort = "330"                //WaveFront Port Address
    @Qstring @WFIRQ = "9"                   //WaveFront IRQ
    @Qstring @SBio
    @Qstring @MidiPort = "340"          //Set to 10 above @WFPort
    @Qstring @MidiIRQ = "DISABLED"          //Only needed for secondary MIDI port
    @Qstring @DuplexMode = "No"

    @Integer @DosInstall = @true

    @Integer @FullDuplex = @false

    @Integer @TestHW = @false
    @Integer @PlugNPlay = @false
    @Integer @WindowsInstall = @true
    @Qstring @BlasterPort ="220"
    @Qstring @BlasterIRQ ="5"
    @Qstring @BlasterDMA ="1"
    @Qstring @TrySetting = ""

    //Tropez Plus Title box (one of the flashier parts of this install)
    @Qstring @box1 ="╔═════════════════════════════════════════════╗"
    @Qstring @box2 ="║                                             ║"
    @Qstring @box3 ="╚═════════════════════════════════════════════╝"
    @Qstring @logo1 ="             Turtle Beach Systems        "
    @Qstring @logo2 ="   Tropez Plus Installation Program V@Version "
    @Integer @colformat = 15
    @Integer @rowformat = 0
    //@Integer @boxcolor1 =125
    //@Integer @boxcolor2 =113
    @Integer @boxcolor1 =116
    @Integer @boxcolor2 =113



    // File set sizes (all in KB)
    @Integer @DOSSize = 710
    @Integer @RegDrivSize = 457
    @Integer @MidiMapSize = 37

    @Integer @TotalSize = 0
    @Integer @TotalSizeBytes = 0
    @Integer @WFReturn = 0

    @Qstring @SysIni = "C:\\WINDOWS\\SYSTEM.INI"
    @Qstring @BootLine = ""
    @Qstring @DrvPath
    @Qstring @TBS2000Ini = ""
    @Qstring @TropezIni = ""

    @Integer @WSS = 1
    @Integer @SB = 2
    @Integer @MIDI = 3
    @Integer @WF = 4
//------------------------ Test results ------------------------
    @Integer @MainPortTest = 0
    @Integer @MainIRQTest = 0
    @Integer @MainDMATest = 0

    @Integer @SBPortTest = 0

    @Integer @MIDIPortTest = 0
    @Integer @MIDIIRQTest = 0

    @Integer @WFPortTest = 0
    @Integer @WFIRQTest = 0
    @Qstring @Temp = "?"
    @Integer @lock5 = 0
//---------------------------------------------------------------
    @Qstring @ActionStr = ""
    @Integer @Row = 1
    @Integer @Col = 1
    @Qstring @TempMIDIPort
    @Qstring @RunLine = ""
    @Qstring @GroupFilePath = ""

@EndVars

@ClearOption(60)  // reboot option

@If (@OSMajor > 6)
@ClearOption(2001)
@ClearOption(2002)
@GetOption
@movecstr(0,2,15,"╔════════════════════════════════════════════════════════════════════════╗")
@movecstr(1,2,15,"║                                                                        ║")
@movecstr(2,2,15,"║                                                                        ║")
@movecstr(3,2,15,"╚════════════════════════════════════════════════════════════════════════╝")
    @movecstr(1,10,15,"                     Turtle Beach, Inc. ")
    @movecstr(2,10,15,"                 Tropez Plus Installation")

@move(5,27,"Are you using Windows 95?")
@LocalWindow(10,40)
@Option 2001 = "Yes"
@Option 2002 = "No"
@EndOption

@If(2001 [= @Option)
@Display
    This Installation diskette is for use with DOS/Windows 3.1!
    To install drivers for Windows 95, please see your User's
    Manual and the README.TXT file on this diskette.  You should also
    run SETUP.EXE on Disk One of your Turtle Beach Applications Disks
    in order to install the Windows Multimedia Applications. This
    should be done after Windows 95 Auto-detects the Tropez Plus.
    Thanks!
    @LocalWindow(12,40)
    @Pause
    @Abort
    @EndDisplay
@Endif
@Endif

@FlushOptions()

// ******************************************
// Main menu
// ******************************************
@ClearOption(1)
@ClearOption(2)
@ClearOption(3)
@ClearOption(4)
@ClearOption(5)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@GetOption




      ╔══════════════════════════════════════════════════════════════╗
      ║                   This program allows you to:                ║
      ║                                                              ║
      ║ »» Install Tropez Plus drivers for DOS and/or Windows 3.1.   ║
      ║ »» Uninstall Tropez Plus drivers for DOS and/or Windows 3.1. ║
      ║ »» Configure Tropez Plus for DOS or Windows 3.1.             ║
      ║                                                              ║
      ║  Use the Up and DOWN arrow keys to select, then press ENTER  ║
      ╚══════════════════════════════════════════════════════════════╝

    @LocalWindow(18,40)
    @Option 1 = " Quick Install"
    @Option 2 = "Custom Install"
    @Option 4 = "  Configure"
    @Option 3 = "  Uninstall"
    @Option 5 = "    Exit"

@EndOption

@if (5[=@option)
    @exit
@endif

@if(1[=@option)
    @ActionStr = "Installation"
    @QuickInstall = 1
@elseif(2[=@option)
    @ActionStr = "Installation"
    @QuickInstall = 0
@elseif(4[=@option)
    @ActionStr = "Configuration"
    @goto CONFIGURATION_OPTIONS
@elseif(3[=@option)
    @ActionStr = "Uninstallation"
@endif


// ******************************************
// Select DOS or Windows install
// ******************************************

BEGIN_INSTALLATION_SELECTIONS:

@if (1[=@option || 2[=@option)  // if install

    @if(@QuickInstall == 1)
    @DOSInstall = @true
    @WindowsInstall = @true
    @goto GETOUTDRIVE
    @endif

    @SetOption(21)  // default to YES
    @SetOption(22)
    @GetOption
    @Checkbox

    @movecstr(0, 27, 30, "@ActionStr options")
    @movecstr(2, 5, 27, "Up and down arrow keys: select the item you wish to change")
    @movecstr(4, 5, 27, "Space bar: alternate selecting or deselecting the option")
    @movecstr(6, 5, 27, "Enter: accept the options as shown")

    @LocalWindow(10,40)
    @Option 21 = "DOS @ActionStr"
    @Option 22 = "Windows @ActionStr"

    @movecstr(16, 5, 30, "DOS @ActionStr:")
    @movecstr(17, 7, 23, "Copies all DOS applications to your hard drive and configures")
    @movecstr(18, 7, 23, "your hardware settings for DOS games and other DOS apps.")
    @movecstr(20, 5, 30, "Windows @ActionStr:")
    @movecstr(21, 7, 23, "Copies the drivers for the Tropez Plus under Windows.")

    @EndOption

    @if (21[=@option)
        @DOSInstall = @true
    @else
        @DOSInstall = @false
    @endif
    @if (22[=@option)
        @WindowsInstall = @true
    @else
        @WindowsInstall = @false
    @endif

@endif  // install, quick or custom

// ***********************************************
// Choose what kind of configuration (DOS and/or Windows)
// ***********************************************
CONFIGURATION_OPTIONS:

@if (4[=@option)  // if Configure
    @SetOption(21)
    @SetOption(22)
    @GetOption
    @Checkbox

    @movecstr(0, 27, 30, "@ActionStr options")
    @movecstr(2, 5, 27, "Up and down arrow keys: highlight the option you wish to change")
    @movecstr(4, 5, 27, "Space bar: alternate selecting or deselecting the option")
    @movecstr(6, 5, 27, "Enter: accept the options as shown")

        @LocalWindow(10,40)
        @Option 21 = "DOS @ActionStr"
        @Option 22 = "Windows @ActionStr"

        @movecstr(16, 5, 30, "DOS @ActionStr:")
        @movecstr(17, 7, 23, "Configures your hardware settings for DOS games and")
        @movecstr(18, 7, 23, "other DOS apps.")
        @movecstr(20, 5, 30, "Windows @ActionStr:")
        @movecstr(21, 7, 23, "Configures the drivers for the Tropez Plus under Windows.")

    @EndOption

    @if (21[=@option)
        @DOSInstall = @true
    @else
        @DOSInstall = @false
    @endif
    @if (22[=@option)
        @WindowsInstall = @true
    @else
        @WindowsInstall = @false
    @endif
    // @Goto START_CONFIGURE
@endif  // configure

@if(3[=@option)
    @if ( (@exists("@OutDrive:\\tzuninst.ini") == @TRUE) )
        @subdir = @GetProfString("@OutDrive:\\tzuninst.ini", "install", "InstallSubdir")
    @endif
    @goto UNINSTALL
@endif
// ***********************************************
// Get output disk drive and directory
// ***********************************************

GETOUTDRIVE:
@If(@Choice == 0 && @QuickInstall == 1)
    @If(@DriveExists(@OutDrive))
        @EnteredWinDrive = C
        @EnteredWinDir = "\\WINDOWS"
        @Goto CheckWPath
    @Else
        @Display
        @Cls
    We couldn't locate your hard drive!
        @Pause
        @EndDisplay
    @Endif
@Endif


@GetOutDrive
    @Cls
    @suppress(0,17)
    @movecstr(0, 27, 30, "@ActionStr drive")
    @movecstr(7, 15, 27, "Please specify disk drive for @Name files")
    @LocalWindow(12, 37)
@EndOutDrive

@GetSubdir
    @Cls
    @movecstr(0, 27, 30, "@ActionStr directory")
    @movecstr(4, 17, 27, "Please specify directory for @Name files")
    @LocalWindow(10, 50)
@EndSubdir

@If(@Choice != 0 || @QuickInstall == 1)
    @Goto MAIN_SETTINGS_MENU
@Endif

// ***********************************************
// Get Windows disk drive and directory
// ***********************************************

GETWINDOWSDIR:

@if((@WindowsInstall == @true) && ((4[=@option) || (2[=@option) || @choice == 2))

    @EnteredWinDir = "\\WINDOWS"
    @GetOutDrive @EnteredWinDrive
        @Cls
        @suppress(0,17)
        @movecstr(0, 23, 30, "@ActionStr - Windows drive")
        @movecstr(4, 17, 27, "On which disk drive is Windows located?")

        @LocalWindow(10, 37)

    @EndOutDrive

    @GetSubDir @EnteredWinDir
        @Cls
        @movecstr(0, 21, 30, "@ActionStr - Windows directory")
        @movecstr(4, 19, 27, "In which directory is Windows located?")
        @movecstr(5, 19, 27, "For example, \\WINDOWS")

        @Prompt = "What is your windows directory?"
        @LocalWindow(12, 50)
    @EndSubDir

CheckWPath:

//@pause
    @if (@exists("@EnteredWinDrive:@EnteredWinDir\\win.com") != @TRUE)
        @Display

    Windows was not found in @EnteredWinDrive:@EnteredWinDir!!
    Please enter the proper directory.  Hit ESC to cancel this
    installation so you can go look for the file WIN.COM. Type
    these two commands at the C:> prompt:
    CD \
    DIR WIN.COM /S
    This will search your entire hard drive for the WIN.COM file.

        @Pause
        @EndDisplay
        @goto GETWINDOWSDIR
    @Endif  // win.com exists
    @if (@exists("@EnteredWinDrive:@EnteredWinDir\\system.ini") != @TRUE)
        @Display
    No system.ini in that directory!  This will certainly cause
    problems.

            @Pause
        @EndDisplay
        @goto GETWINDOWSDIR
    @Endif  // system.ini exists
    @SysIni = "@EnteredWinDrive:@EnteredWinDir\\system.ini"
@Endif  // windows installation

//Full Duplex Question

@if((2[=@option) || (4[=@option))
    @Goto FULL_DUPLEX
@Endif

@If(@Choice != 0 || @QuickInstall == 1)
    @Goto MAIN_SETTINGS_MENU
@Endif

@If(4[=@Option)
    @Goto START_CONFIGURE
@Endif

AFTERGETWINDOWSDIRECTORY:

// **********************************************
// Check space on drive
// **********************************************
CHECK_SPACE_ON_DRIVE:

// Figure out total disk space needed
@TotalSize = 0

@if (@DOSInstall == @true)
    @TotalSize = (@TotalSize + @DOSSize)
@endif

@if (@WindowsInstall == @true)

    @TotalSize = (@TotalSize + @RegDrivSize)

    @TotalSize = (@TotalSize + @MidiMapSize)

@endif

@TotalSizeBytes = (@TotalSize * 1024)


@if ((@DiskFree(@OutDrive)) < (@TotalSizeBytes))
    @Display
 Not enough disk space on drive @OutDrive.
 Press ESC to exit and delete files, or hit enter to select a different drive.


        @Pause
        @goto BEGIN_INSTALLATION_SELECTIONS
    @EndDisplay
@endif


//GETPNP:

//@If(@Choice == 0 || @QuickInstall == 1)
//      @Goto MAIN_SETTINGS_MENU
//      @Endif
//@Endif

// Plug-n-Play option
//      @SetOption(400)
//      @GetOption
//      @movecstr(2, 5, 31, "                                                ")
//      @movecstr(4, 7, 31, "                                    ")
//      @movecstr(6, 7, 31, "                                    ")
//              @CheckBox
//              @movecstr(0, 30, 30, "Plug-n-Play?")
//              @movecstr(3, 5, 27, "Space bar - switch the option on or off")
//              @movecstr(5, 5, 27, "Enter - accept the option as shown")
//              @LocalWindow(14,37)  // was 40
//              @movecstr(7, 5, 31, "Are you installing the card in a Plug-n-Play system? ")
//              @ClearOption(400)
//              @Option 400 = "Plug-n-Play System?"
//              @EndOption


//@If (400[=@option)
//      @PlugNPlay=@true
//@Else
//      @PlugNPlay=@False
//@Endif

//@if (@PlugNPlay == @true)

    // set defaults
//      @MainPort = "534"
//      @MainIRQ = "7"
//      @MainDMA = "1"
//      @MidiPort = "300"
//      @MidiIRQ = "DISABLED"
//      @BlasterPort = "220"
//      @BlasterIRQ = "7"
//      @BlasterDMA = "1"

//      @WFPort = "330"
//      @WFIRQ = "9"

//      @goto End_Configure

//@endif



@If(@Choice == 0  || @QuickInstall == 1)
        @Goto MAIN_SETTINGS_MENU
    @Endif
@Endif



// *****************************************
// Full Duplex Section
// *****************************************
FULL_DUPLEX:

@SetOption(400)
    @GetOption
    @movecstr(2, 5, 31, "                                                ")
    @movecstr(4, 7, 31, "                                    ")
    @movecstr(6, 7, 31, "                                    ")
        @CheckBox
        @movecstr(0, 32, 30, "Full-Duplex?")
        @movecstr(4, 5, 27, "Space bar: alternate selecting or deselecting the option")
        @movecstr(6, 5, 27, "Enter: accept the options as shown")
        @LocalWindow(11,37)  // was 40
        @movecstr(14, 5, 31, "Do you want to enable Full Duplex for the Tropez Plus card?")
        @movecstr(15, 5, 31, "Full Duplex is primarily used for applications in which")
        @movecstr(16, 5, 31, "simultaneous record and playback is necessary (such as digital")
        @movecstr(17, 5, 31, "multitrack and Internet 'phone' type software). Full Duplex is")
        @movecstr(18, 5, 31, "not necessary for normal operation.")
        @ClearOption(400)
        @Option 400 = "Full-Duplex?"
        @EndOption

//@Endif

@If (400[=@option)
    @FullDuplex=@true
    @If("@MainDMA" != "0")
        @RecDMA = "0"
    @Else
        @RecDMA = "3"
    @Endif
    @DuplexMode = "Yes"
@Else
    @FullDuplex=@False
    @DuplexMode = "No"
    @RecDMA = @MainDMA
@Endif

//@If(2[=@Option)

  @If(@Choice != 0 || @QuickInstall == 1)
    @Goto MAIN_SETTINGS_MENU
  @Endif

@Endif


// ******************************************
// Configuration start
// ******************************************
START_CONFIGURE:

// ******************************************
// Sound card configuration (main settings)
// ******************************************
// get settings from TBSDOS.INI

@If (4[=@option)
    @Temp = "@OutDrive:\\@Subdir\\DOSAPPS\\TBSDOS.INI"

    @MainPort = @GetProfString("@Temp","PNP","WssIO")
    @MainIRQ = @GetProfString("@Temp","PNP","WssInt")
    @MainDMA = @GetProfString("@Temp","PNP","WssDmaPlay")
    @RecDMA = @GetProfString("@Temp","PNP","WssDmaCapture")
    @MIDIPort = @GetProfString("@Temp","PNP","MPU401IO")
    @MIDIIrq = @GetProfString("@Temp","PNP","MPU401Int")
    @BlasterPort = @GetProfString("@Temp","PNP","SbIO")
    @WFPort = @GetProfString("@Temp","PnP","CDIO")
    @WFIRQ = @GetProfString("@Temp","PnP","CDInt")
@Endif


MAIN_SETTINGS_MENU:
@ClearOption(101)
@ClearOption(102)
@ClearOption(103)
@ClearOption(104)
@ClearOption(105)
@ClearOption(106)
@ClearOption(107)
@ClearOption(108)
@ClearOption(109)
@ClearOption(110)
@ClearOption(111)
@ClearOption(114)
@ClearOption(115)
@ClearOption(116)


@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")

@GetOption
    @movecstr(5, 5, 30, "@ActionStr: Tropez Plus current hardware settings")
    @movecstr(7, 5, 27, "Up and down arrow keys - highlight the setting you wish to change")
    @movecstr(8, 5, 27, "Enter - change the highlighted setting")
    @LocalWindow(16,40)

    @Option 101 = "Continue with settings as shown"
    @Option 109 = "DOS Install Directory.........@OutDrive:\\@Subdir"
@If(@WindowsInstall == @true)
    @Option 110 = "Windows Install Directory.....@EnteredWinDrive:\\@EnteredWinDir"
    @Option 102 = "Windows Audio Port Address....@MainPort"
@Endif
@If(@DOSInstall == @true)
    @Option 111 = "Sound Blaster Port Address....@BlasterPort"
@Endif
    @Option 103 = "Audio IRQ.....................@MainIRQ"
@If(@FullDuplex == @false)
    @Option 104 = "Audio DMA.....................@MainDMA"
@Endif
@If(@FullDuplex == @true)
    @Option 104 = "Audio Play / Record DMA.......@MainDMA / @RecDMA"
@Endif
    @Option 107 = "WaveFront Port Address........@WFPort"
    @Option 108 = "WaveFront IRQ.................@WFIRQ"
    @Option 105 = "Full Duplex...................@DuplexMode"
    @Option 114 = "Reset All Values to Default"

//  MPU-401 settings are not needed for Tropez Plus
//  @Option 105 = "MPU-401 Port Address..........@MidiPort"
//      @Option 106 = "MPU-401 MIDI IRQ..............@MidiIRQ"

@EndOption



@if(101[=@option) // user wants to continue with present settings
    // first check to see if the settings work and default IRQ not the same as CD-ROM IRQ
    @goto END_OF_MAIN_SETTINGS

@elseif(102[=@option)  // Main Port
@Choice = 1
    @goto MAIN_PORT_SETTING
@elseif(103[=@option)  // Main IRQ
@Choice = 1
    @goto MAIN_IRQ_SETTING
@elseif(104[=@option)  // Main DMA
@Choice = 1
    @goto MAIN_DMA_SETTING
// @elseif(105[=@option)  // Record DMA
// @Choice = 1
//        @goto REC_DMA_SETTING
@elseif(106[=@option)  // MPU-401 IRQ
@Choice = 1
    @goto MPU401_IRQ_SETTING
@elseif(107[=@option)  // WaveFront port
@Choice = 1
    @goto WAVEFRONT_PORT_SETTING
@elseif(108[=@option)  // WaveFront IRQ
@Choice =1
    @goto WAVEFRONT_IRQ_SETTING
@elseif(109[=@option)  // Install Directory
@Choice = 1
    @goto GETOUTDRIVE
@elseif(110[=@option)  // Windows Directory
@Choice = 2
    @goto GETWINDOWSDIR
@elseif(111[=@option)  // SB Port
@Choice = 1
    @goto BLASTER_PORT_SETTING
@elseif(114[=@option)  // Reset all values
@Choice = 1
    @goto RESETEM
@elseif(105[=@option)  // Full Duplex? yes/no
@Choice = 1
    @goto FULL_DUPLEX
@endif

@Goto MAIN_SETTINGS_MENU   // fall-thru - default

MAIN_PORT_SETTING:
    @ClearOption(111)
    @ClearOption(112)
    @ClearOption(113)
    @ClearOption(114)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 26, 30, "Windows Sound Port Address")
    @GetOption






    This setting changes the "WSSPort" entry in TBSDOS.INI and the
    "IOAddress=" entry in the [sndsys.drv] section of SYSTEM.INI in your
    Windows directory. It's used to play digital audio in Windows.
        @LocalWindow(15,40)
        @Option 111 = "534 (default)"
        @Option 112 = "608"
        @Option 113 = "E84"
        @Option 114 = "F44"
    @EndOption
    @if(111[=@option)
        @TrySetting = "534"
    @elseif (112[=@option)
        @TrySetting = "608"
    @elseif (113[=@option)
        @TrySetting = "E84"
    @elseif (114[=@option)
        @TrySetting = "F44"
    @else //default
        @TrySetting = "534"
    @endif

    @MainPort = "@TrySetting"
    @goto MAIN_SETTINGS_MENU

RESETEM:  // reset all values to default
    @Subdir = "\\tbeach"
    @MainPort = "534"
    @MainIRQ = "5"
    @MainDMA = "1"
    @RecDMA = "0"
    @BlasterPort = "220"
    @MidiPort = "340"
    @MidiIRQ = "DISABLED"
    @WFPort = "330"
    @WFIRQ = "9"
    @DuplexMode = "No"
    @FullDuplex = @false
@goto MAIN_SETTINGS_MENU

MAIN_IRQ_SETTING:

    @ClearOption(121)
    @ClearOption(122)
    @ClearOption(123)
    @ClearOption(350)
    @ClearOption(351)
    @ClearOption(352)
    @ClearOption(353)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(5, 34, 30, "Sound IRQ")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(7, 5, 31, "This setting changes the 'WSSInt' entry in TBSDOS.INI and the")
@movecstr(8, 5, 31, "'Interrupt=' entry in the [sndsys.drv] section of SYSTEM.INI in your")
@movecstr(9, 5, 31, "Windows directory.  It also changes the 'SET BLASTER' statement in")
@movecstr(10, 5, 31, "AUTOEXEC.BAT.  It's used to play digital audio in DOS and Windows.")
    @GetOption
        @LocalWindow(16,40)
        @if ("@WFIRQ" != "5")
            @Option 121 = "5 (default)"
        @endif
        @if ("@WFIRQ" != "7")
            @Option 122 = "7"
        @endif
        @if ("@WFIRQ" != "9")
            @Option 123 = "9"
        @endif
        @if ("@WFIRQ" != "10")
            @Option 350 = "10"
        @endif
        @if ("@WFIRQ" != "11")
            @Option 351 = "11"
        @endif
        @if ("@WFIRQ" != "12")
            @Option 352 = "12"
        @endif
        //@if ("@MidiIRQ" != "15")
        //@Option 353 = "15"
        //@endif
    @EndOption


    @if(121[=@option)
        @TrySetting = "5"
    @elseif (122[=@option)
        @TrySetting = "7"
    @elseif (123[=@option)
        @TrySetting = "9"
    @elseif (350[=@option)
        @TrySetting = "10"
    @elseif (351[=@option)
        @TrySetting = "11"
    @elseif (352[=@option)
        @TrySetting = "12"
    @elseif (353[=@option)
        @TrySetting = "15"
    @else //default
        @TrySetting = "5"
    @endif

    // now assign @MainIRQ to @TrySetting if it succeeds hardware test
    @MainIRQ = "@TrySetting"
    @goto MAIN_SETTINGS_MENU


MAIN_DMA_SETTING:
    @ClearOption(131)
    @ClearOption(132)
    @ClearOption(133)
    @ClearOption(134)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 34, 30, "Sound DMA")
@movecstr(7, 5, 31, "This setting changes the 'WSSDmaPlay' entry in TBSDOS.INI and the")
@movecstr(8, 5, 31, "'DMADAC=' entry in the [sndsys.drv] section of SYSTEM.INI in your")
@movecstr(9, 5, 31, "Windows directory.  It also changes the 'SET BLASTER' statement in")
@movecstr(10, 5, 31, "AUTOEXEC.BAT.  It's used to play digital audio in DOS and Windows.")

    @GetOption
        @LocalWindow(15,40)

    @if(@FullDuplex == @false)
        @Option 132 = "1 (default)"
        @Option 131 = "0"
        @Option 133 = "3"
    @Endif

    @if(@FullDuplex == @true)
        @if ("@RecDMA" != "1")
            @Option 132 = "1 (default)"
        @endif
        @if ("@RecDMA" != "0")
            @Option 131 = "0"
        @endif
        @if ("@RecDMA" != "3")
            @Option 133 = "3"
        @endif
    @Endif

    @EndOption
    @if(131[=@option)
        @TrySetting = "0"
    @elseif (132[=@option)
        @TrySetting = "1"
    @elseif (133[=@option)
        @TrySetting = "3"
    @else //default
        @TrySetting = "1"
    @endif

    // now assign @MainDMA to @TrySetting if it succeeds hardware test
    @MainDMA = "@TrySetting"
    @if  (@fullduplex == @true)
        @goto REC_DMA_SETTING
    @else
        @goto MAIN_SETTINGS_MENU
    @endif

REC_DMA_SETTING:

    @ClearOption(141)
    @ClearOption(142)
    @ClearOption(143)
    @ClearOption(144)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 34, 30, "Record DMA")
    @GetOption






    This setting changes the "DMAADC=" entry in the [sndsys.drv] section
    of SYSTEM.INI in your Windows directory.  It is only used when the
    Tropez Plus card is in Full Duplex mode in Windows.  The Audio Record
    DMA must be different than the Audio Play DMA.
        @LocalWindow(15,40)
        @if ("@MainDMA" != "0")
            @Option 141 = "0 (default)"
        @endif
        @if ("@MainDMA" != "1")
            @Option 142 = "1"
        @endif
        @if ("@MainDMA" != "3")
            @Option 143 = "3"
        @endif
        @EndOption
    @if(141[=@option)
        @RecDMA = "0"
    @elseif (142[=@option)
        @RecDMA = "1"
    @elseif (143[=@option)
        @RecDMA = "3"
    @else //default
        @RecDMA = "0"
    @endif

    // now assign @MainDMA to @TrySetting if it succeeds hardware test
   //   @RecDMA = "@TrySetting"
    @goto MAIN_SETTINGS_MENU

// -------------------------- MPU-401 stuff -----------------------
// Not needed for Tropez Plus Install.  MidiPort setting is set to
// 9 above the WFPort value.

/*
MPU401_PORT_SETTING:
    @ClearOption(141)
    @ClearOption(142)
    @ClearOption(143)
    @ClearOption(144)
    @ClearOption(145)
    @ClearOption(146)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 30, 30, "MPU-401 Port I/O")
    @GetOption






    This setting changes the 'MPU401IO=' entry in TBSDOS.INI and
    the 'port=' entry of the [mpu401] section of SYSTEM.INI in your
    Windows directory.  It is used for the Tropez Plus' secondary
    MPU-401.
        @LocalWindow(16,40)
        @Option 141 = "330 (default)"
        @Option 142 = "300"
        @Option 143 = "320"
        @Option 144 = "332"
        @Option 145 = "334"
        @Option 146 = "336"
    @EndOption
    @if(142[=@option)
        @MidiPort = "300"
    @elseif(143[=@option)
        @MidiPort = "320"
    @elseif(144[=@option)
        @MidiPort = "332"
    @elseif(145[=@option)
        @MidiPort = "334"
    @elseif(146[=@option)
        @MidiPort = "336"
    @else  // default
        @MidiPort = "330"
    @endif
    @goto MAIN_SETTINGS_MENU

MPU401_IRQ_SETTING:
    @ClearOption(151)
    @ClearOption(152)
    @ClearOption(153)
    @ClearOption(154)
    @ClearOption(155)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 32, 30, "MPU-401 IRQ")
@movecstr(7, 6, 31, "This setting changes the 'MPU401IRQ' entry in TBSDOS.INI and")
@movecstr(8, 6, 31, "the 'irq=' entry in the [mpu401] section of SYSTEM.INI in your")
@movecstr(9, 6, 31, "Windows directory.  The Default value for this is DISABLED.")
@movecstr(10, 6, 31, "Unless you plan to use the secondary MIDI interface on the")
@movecstr(11, 6, 31, "Tropez Plus, DO NOT assign an IRQ to this setting.")

    @GetOption
        @LocalWindow(15,40)
        @if ("@MainIRQ" != "9")
            @Option 151 = "DISABLED (default)"
        @endif
        @if ("@WFIRQ"  != "5")
            @Option 152 = "5"
        @endif
        @if ("WFIRQ" != "7")
            @Option 153 = "7"
        @endif
        @if ("WFIRQ" != "9")
            @Option 154 = "9"
        @endif
    @EndOption

    @if(152[=@option)
        @MidiIRQ = "5"
    @elseif(153[=@option)
        @MidiIRQ = "7"
    @else  // default
        @MidiIRQ = "DISABLED"
    @endif
    @goto MAIN_SETTINGS_MENU

*/

//--------------- Blaster Settings ----------------
BLASTER_PORT_SETTING:
    @ClearOption(111)
    @ClearOption(112)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 26, 30, "Sound Blaster Port I/O")
    @GetOption






    This setting changes the "SBIO=" entry in TBSDOS.INI.
    It also affects the SET BLASTER statement in AUTOEXEC.BAT.
    It's required to use digital audio in DOS, mostly for games.
        @LocalWindow(14,40)
        @Option 111 = "220 (default)"
        @Option 112 = "240"
    @EndOption
    @if(111[=@option)
        @TrySetting = "220"
    @elseif (112[=@option)
        @TrySetting = "240"
    @endif

    @BlasterPort = "@TrySetting"
    @goto MAIN_SETTINGS_MENU

//-------------------------------------------------------------------

WAVEFRONT_PORT_SETTING:
    @ClearOption(141)
    @ClearOption(142)
    @ClearOption(143)
    @ClearOption(144)
    @ClearOption(145)
    @ClearOption(146)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 30, 30, "WaveFront Port I/O")
    @GetOption







    This setting changes the "CDIO=" entry of the [PnP] section in the
    TBSDOS.INI in your TBEACH/DOSAPPS directory.  It's required if
    you want to use the Tropez Plus Wavetable synthesizer for music.
    This is the port you will choose when setting up music for DOS games.
        @LocalWindow(17,40)
        @Option 141 = "330 (default)"
        @Option 142 = "300"
        @Option 143 = "320"
        @Option 144 = "338"
        @Option 145 = "260"
        @Option 146 = "360"
    @EndOption
    @if(142[=@option)
        @WFPort = "300"
        @MidiPort = "310"
    @elseif(143[=@option)
        @WFPort = "320"
        @MidiPort = "330"
    @elseif(144[=@option)
        @WFPort = "338"
        @MidiPort = "342"
    @elseif(145[=@option)
        @WFPort = "260"
        @MidiPort = "270"
    @elseif(146[=@option)
            @WFPort = "360"
        @MidiPort = "370"
    @else  // default
        @WFPort = "330"
        @MidiPort = "340"
    @endif
    @goto MAIN_SETTINGS_MENU

WAVEFRONT_IRQ_SETTING:
    @ClearOption(151)
    @ClearOption(152)
    @ClearOption(153)
    @ClearOption(154)
    @ClearOption(155)
    @ClearOption(156)
    @ClearOption(157)
@movecstr(@rowformat,@colformat,@boxcolor1,"@box1")
@movecstr(@rowformat+1,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+2,@colformat,@boxcolor1,"@box2")
@movecstr(@rowformat+3,@colformat,@boxcolor1,"@box3")
@movecstr(@rowformat+1,@colformat+1,@boxcolor2,"@logo1")
@movecstr(@rowformat+2,@colformat+1,@boxcolor2,"@logo2")
@movecstr(5, 32, 30, "WaveFront IRQ")
@movecstr(7, 6, 31, "This setting changes the 'CDInt=' entry of the [PnP] section of")
@movecstr(8, 6, 31, "the TBSDOS.INI in your TBEACH/DOSAPPS directory.  It's required if")
@movecstr(9, 6, 31, "you want to use the Tropez Plus Wavetable synthesizer for music.")

    @lock5 = 0
    @if ("@MidiIRQ" == "5")
        @lock5 = 1
    @endif
    @if ("@MainIRQ" == "5")
        @lock5 = 1
    @endif

    @GetOption
        @LocalWindow(16,40)
        @if ("@MainIRQ" != "9")
            @Option 151 = "9 (default)"
        @endif
        @if (@lock5 != 1)
            @Option 152 = "5"
        @endif
        @if ("@MainIRQ" != "7")
            @Option 153 = "7"
        @endif
        @if ("@MainIRQ" != "10")
            @Option 154 = "10"
        @endif
        @if ("@MainIRQ" != "11")
            @Option 155 = "11"
        @endif
        @if ("@MainIRQ" != "12")
            @Option 156 = "12"
        @endif
    @if ("@MainIRQ" != "15")
            @Option 157 = "15"
        @endif


    @EndOption

    @if(152[=@option)
        @WFIRQ = "5"
    @elseif(153[=@option)
        @WFIRQ = "7"
    @elseif(154[=@option)
        @WFIRQ = "10"
    @elseif(155[=@option)
        @WFIRQ = "11"
    @elseif(156[=@option)
        @WFIRQ = "12"
    @elseif(157[=@option)
        @WFIRQ = "15"
    @else  // default
        @WFIRQ = "9"
    @endif
    @goto MAIN_SETTINGS_MENU

//Test Section - not used in 1.1 release ---------

TESTIT:
    @Row = 2

    @SBio="220"  // just use this for now
    @InitializeHardware( "@MainPort","@SBio","@MainDMA","@MainIRQ",
                "@MidiPort", "@MidiIRQ")

    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "WssIO", "@MainPort")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "WssInt", "@MainIRQ")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "WssDmaPlay", "@MainDMA")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "WssDmaCapture", "@RecDMA")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "SbIO", "@SBio")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401IO", "@MidiPort")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401Int", "@MidiIRQ")

    @Spawn( "@InDrive:\\install\\tbs2001.exe" )
    // WSS tests
    @Row = (@Row + 2)
    @movecstr(@Row, 9, 31, "Checking Windows Port Address")
    //@MainPortTest = @CheckPortIO(@WSS)
    //@movecstr(@Row, 45, 31, "@MainPort => @MainPortTest")

    @Row = (@Row + 1)
    @movecstr(@Row, 9, 31, "Checking Windows IRQ")
    //@MainPortTest = @CheckIRQ(@WSS)
    //@movecstr(@Row, 45, 31, "@MainIRQ => @MainIRQTest")

    @Row = (@Row + 1)
    @movecstr(@Row, 9, 31, "Checking Windows DMA")
    //@MainDMATest = @CheckDMA(@WSS)
    //@movecstr(@Row, 45, 31, "@MainDMA => @MainDMATest")

    //---- Now we set the BLASTER environment var, and run TESTPCM
    @System("@InDrive:install\\tbsdiag.exe")

    // MIDI tests
    @Row = (@Row + 2)
    @movecstr(@Row, 9, 31, "Checking MIDI Port Address")
    @MIDIPortTest = @CheckPortIO(@MIDI)
    @movecstr(@Row, 45, 31, "@MIDIPort => @MIDIPortTest")

    @Row = (@Row + 1)
    @movecstr(@Row, 9, 31, "Checking MIDI IRQ")
    @MIDIPortTest = @CheckIRQ(@MIDI)
    @movecstr(@Row, 45, 31, "@MIDIIRQ => @MIDIIRQTest")

// Now for SoundBlaster stuff

    @InitializeHardware( "@MainPort","@BlasterPort","@MainDMA","@MainIRQ",
                "@MidiPort", "@MidiIRQ" )

    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "SbIO", "@SBio")

    @Spawn( "@InDrive:\\install\\tbs2001.exe" )

    // restore the ini file to the WIN 95 state with everything disabled
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401IO", "@MidiPort")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401Int", "@MidiIRQ")

    @Row = (@Row + 2)
    @movecstr(@Row, 9, 31, "Checking SoundBlaster Port")
    @SBPortTest = @CheckPortIO(@SB)
    @movecstr(@Row, 45, 31, "@BlasterPort => @SBPortTest")

    //WaveFront Tests require a fake-out in the INI file!
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401IO", "@WFPort")
    @WriteProfString("@InDrive:\\install\\tbsdos.ini", "PNP", "MPU401Int", "@WFIRQ")

    @Spawn( "@InDrive:\\install\\tbs2001.exe" )

    @InitializeHardware( "@MainPort","@SBio","@MainDMA","@MainIRQ",
                "@WFPort", "@WFIRQ")

    // WF MIDI tests
    @Row = (@Row + 2)
    @movecstr(@Row, 9, 31, "Checking WF Port Address")
    @WFPortTest = @CheckPortIO(@MIDI)
    @movecstr(@Row, 45, 31, "@WFPort => @WFPortTest")

    @Row = (@Row + 1)
    @movecstr(@Row, 9, 31, "Checking WF IRQ")
    @WFIRQTest = @CheckIRQ(@MIDI)
    @movecstr(@Row, 45, 31, "@WFIRQ => @WFIRQTest")

    @GetString @Temp
    @LocalWindow(19,40)
    @Prompt = "Press the Enter key to continue..."
    @EndString
    @goto MAIN_SETTINGS_MENU

@if (!@DosInstall)
    @goto END_OF_BLASTER_SETTINGS
@endif

END_OF_BLASTER_SETTINGS:

End_Configure:

@if (3[!@option)
    @if (@WindowsInstall == @true)
    // Make wavetable synth the default MIDI device
        @SetOption(40)
    @endif
@endif

@if (1[=@option)
    @movecstr(6, 5, 31, "Disk space needed for this install: @TotalSizeBytes bytes")
    @movecstr(7, 5, 31, "Free disk space on @OutDrive: @DiskFree(@OutDrive) bytes")
@endif

END_OF_MAIN_SETTINGS:

@Row = 1

@movecstr(@Row, 1, 30, "Please wait while changes are made to system startup files")

@Row = (@Row + 3)
@movecstr(@Row, 1, 31, "Backing up config.sys, autoexec.bat, and system.ini to .bak files")
// Backup autoexec.bat / config.sys / system.ini
//@abort
@copy("@BootDrive:\\config.sys", "@BootDrive:\\config.bak")
@copy("@BootDrive:\\autoexec.bat", "@BootDrive:\\autoexec.bak")
@copy("@EnteredWinDrive:@EnteredWinDir\\system.ini",
    "@EnteredWinDrive:@EnteredWinDir\\system.bak")

@if (@DosInstall)

    @removeline("@bootdrive:\\autoexec.bat", "", "setupsnd", "", "REM")
    @removeline("@bootdrive:\\config.sys", "", "tbs2001", "", "REM")
    @removeline("@bootdrive:\\autoexec.bat", "", "tbsmix", "", "REM")

    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Creating tbsdos.ini file for DOS settings")

    // *************************************************
    // Write tbsdos.ini
    // *************************************************

    @mkdir("@OutDrive:@subdir\\dosapps")
    @write("@OutDrive:@subdir\\dosapps\\tbsdos.ini","wt","[PNP]\n")
    @write(,,"WssIO=@MainPort\n")
    @write(,,"WssInt=@MainIRQ\n")
    @if (@fullduplex == @true)
        @write(,,"WssDmaPlay=@MainDMA\n")
    @write(,,"WssDmaCapture=@RecDMA\n")
    @endif
    @if (@fullduplex == @false)
        @write(,,"WssDmaPlay=@MainDMA\n")
    @write(,,"WssDmaCapture=@MainDMA\n")
    @endif
    @write(,,"SbIO=@BlasterPort\n")
    @write(,,"OplIO=388\n")
    @write(,,"OplInt=disabled\n")
    @write(,,"GameIO=200\n")
    @write(,,"4232IO=538\n")
    @write(,,"4232Int=disabled\n")
    @write(,,"MPU401IO=@MidiPort\n")
    @write(,,"MPU401Int=disabled\n")
    @write(,,"CDIO=@WFPort\n")
    @write(,,"CDInt=@WFIRQ\n")

    @write(,,"\n")

    @write(,,"[IniUpdate]\n")
    @write(,,"SysIniFile =@OutDrive:@EnteredWinDir\\system.ini\n")

    @write(,,"\n")

    @write(,,"SoundBlasterIRQ=[sndsys.drv],SoundBlasterIRQ\n")
    @write(,,"SoundBlasterAddr=[sndsys.drv],OldMSDOSGameIOAddress\n")
    @write(,,"SoundBlasterDMA=[sndsys.drv],SoundBlasterDMA\n")

    @write(,,"\n")

    @write(,,"UsePnP=[sndsys.drv],UsePnP\n")

    @write(,,"\n")

    @write(,,"WSSIRQ=[sndsys.drv],Interrupt\n")
    @write(,,"WSSAddr=[sndsys.drv],IOAddress\n")
    @write(,,"WSSPlayDMA=[sndsys.drv],DMADAC\n")
    @write(,,"WSSCaptDMA=[sndsys.drv],DMAADC\n")

    @write(,,"\n")

    @write(,,"MPU401IRQ=[mpu401.drv],int\n")
    @write(,,"MPU401Addr=[mpu401.drv],port\n")

    @write(,,"\n")

    @write(,,"CS4232Addr=[sndsys.drv],CS4232Control\n")

    @write(,,"FMAddr=[tbsfm.drv],portFM\n")
    @write(,,";For now keep this disabled\n")
    @write(,,";FMIRQ=[tbsfm.drv],Int\n")
    @write(,,"JoystickAddr=[sndsys.drv],Joystick\n")

    @write(,,"\n")

//      @write(,,"[WFSettings]\n")
//      @write(,,"WFPort=@WFPort\n")
//      @write(,,"WFIrq=@WFIRQ\n\n")


    // *************************************************
    // Put SET BLASTER and Hot key mixer into autoexec.bat
    // *************************************************

    // Line must be removed first because it will get added a second time if install doesn't
    //  find an exact match


    @removepath("@bootdrive:\\autoexec.bat", "path", "@SubDir", "rem")
    @setautoexec
        @overwrite
        @path="@OutDrive:@subdir\\DOSAPPS"
        @setreplace("BLASTER","A@BlasterPort I@MainIRQ D@MainDMA T4")
//                @verbatim="LH @OutDrive:\\@subdir\\dosapps\\wfsurfer"

    @endautoexec

    @removeline("@bootdrive:\\config.sys", "", "tbs2001.exe", "", "REM")

    @setconfig
        //@overwrite
        //@device="@OutDrive:\\@subdir\\dosapps\\tbs2001.exe"
    @endconfig
@endif  // @DosInstall is TRUE

@if(4[=@option)
      @goto AFTER_DEFINE_DISKS
@endif

// *************************************************
// Define the disk set
// *************************************************

@DefineDisk
    @Label = "Disk #1"

     @if(@DosInstall == @true)

    // DOS files...copied to DOSAPPS directory
        @File tbs2001.exe @S 33692 @O DOSAPPS\*.* //@option 21
        @File readme.txt @O *.*
        @File readme.bat @O *.*

         @BeginLib 2001apps.red
        @File playcd.exe @S 1000 @O DOSAPPS\*.*
        @File tbswss.exe @S 1000 @O DOSAPPS\*.*
        @File soundtst.wav @S 1000 @O DOSAPPS\*.*
        @File test.dat @S 1000 @O DOSAPPS\*.*
        @File tbsmix.exe @S 2220 @O DOSAPPS\*.*
        @File tbsdiag.exe @S 5500 @O DOSAPPS\*.*
        @File tbshmx.exe @S 1000 @O DOSAPPS\*.*
         @EndLib

         @BeginLib config.red
        @File config.exe @S 1000 @O DOSAPPS\*.*
         @EndLib

     @endif

     @if(@WindowsInstall == @true)

    //Readme.wri file copied to DRV directory
        @File readme.wri @O DRV\*.*

    // Midimapper file copied to Windows dir.
        @BeginLib midimap.red
            @File MIDIMAP.STD @O @EnteredWinDrive:@EnteredWinDir\SYSTEM\*.*
        @EndLib

    // Wavefront control panel 3.1 driver just happens to fit here.
    // otherwise it would live on disk 2...

        @BeginLib wffx.red
            @F WFFX.DRV @S 85000 @O DRV\*.*
        @EndLib

    //Driver files copied to \TBEACH\DOSAPPS
        @BeginLib driver.red
            @F TBS2001.DRV @O DRV\*.*
            @F TBSFM.DRV @O DRV\*.*
            @F VSNDSYS.386 @O DRV\*.*
            @F MPU401.DRV @O DRV\*.*
            @F WF2001.DRV @O DRV\*.*
            @F IBMJOY.DRV @O DRV\*.*
            @F TROPEZP.INI @O @EnteredWinDrive:@EnteredWinDir\*.*
            @F WINSETUP.EXE @O DOSAPPS\*.*
            @F CWAUDIO.BIN @O DOSAPPS\*.*
            @File msmixmgr.dll @O @EnteredWinDrive:@EnteredWinDir\SYSTEM\*.* @AskOverwrite
        @EndLib
    @endif
@EndDisk

@DefineDisk
    @Label = "Disk #2 - WaveFront Control Panel"

    @if(@DosInstall == @true)
        @File wfos2001.mot @S 108073 @O DOSAPPS\*.*
        @File setupsnd.exe @S 90060 @O DOSAPPS\*.*
    @endif

    @if(@WindowsInstall == @true)

        @F WFSYSEX.DLL @S 35904 @O @EnteredWinDrive:@EnteredWinDir\*.*
        @F WFCP.INI @S 207 @O @EnteredWinDrive:@EnteredWinDir\*.*
        @F WFPATCH.INI @S 1659 @O @EnteredWinDrive:@EnteredWinDir\*.*
        @F WFGATE.DLL @S 220736 @O @EnteredWinDrive:@EnteredWinDir\*.*
        @F KNBCTRL.DLL @S 27584 @O WF\*.*
        @F SLDCTRL.DLL @S 28352 @O WF\*.*
        @F WFCP.EXE @S 260224 @O WF\*.*
        @F ANIBUTON.VBX @S 85760 @O @EnteredWinDrive:@EnteredWinDir\SYSTEM\*.*
        @F THREED.VBX @S 64432 @O @EnteredWinDrive:@EnteredWinDir\SYSTEM\*.*
        @F GM_2001.WFB @S 159694 @O WF\*.*
        @File TBS2001.INI @S 17488 @O @EnteredWinDrive:@EnteredWinDir\*.*
    @endif

@EndDisk

@endif  // This is a Windows install.


AFTER_DEFINE_DISKS:

//        Please wait while changes are made to your system.ini...

/*
@Display
    Please wait while changes are made to your system.ini...
@EndDisplay
*/

// **********************************************
// All Windows ini file changes happen here
// **********************************************
@if (@WindowsInstall)
    /*
    New functions:
        @WriteProfString()
        @GetProfString()
        @ReplaceProfString()
    */

    @DrvPath = "@OutDrive:@subdir\\drv"

/*
    @Display
        drv path!
        @DrvPath
    @EndDisplay
*/

    @Col = 0
    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Writing Tropez Plus settings to system.ini")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "CS4232Contol", "538")

    // we must modify @MainPort here because the Windows driver needs
    // to see the 530, e80, f40, 604 addresses instead of the actual
    @if ( "@MainPort" == "534" )
        @MainPort = "530"
    @elseif( "@MainPort" == "E84" )
        @MainPort = "E80"
    @elseif( "@MainPort" == "F44" )
        @MainPort = "F40"
    @elseif( "@MainPort" == "608" )
        @MainPort = "604"
    @else
        @MainPort = "530"
    @endif

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "tbsfm.drv", "int", "0")
    @WriteProfString("@SysIni", "tbsfm.drv", "portFM", "388")

    @WriteProfString("@SysIni", "wf2001.drv", "OScodeFileName", "@OutDrive:\\@subdir\\dosapps\\wfos2001.mot")
    @WriteProfString("@SysIni", "wf2001.drv", "IniFile", "@OutDrive:\\@subdir\\dosapps\\tbsdos.ini")

    @WriteProfString("@SysIni", "ibmjoy.drv", "Axes", "3")

    @ReplaceProfString("@SysIni", "386Enh", "device", "vsndsys.386", "@DrvPath\\vsndsys.386")


    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")


    @WriteProfString("@SysIni", "sndsys.drv", "SingleModeDMA", "0")
    @WriteProfString("@SysIni", "sndsys.drv", "DMABufferSize", "36")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "BlasterSupport", "CS4232")
    @WriteProfString("@SysIni", "sndsys.drv", "Msft Support", "1")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "Midi Play", "1")
    @WriteProfString("@SysIni", "sndsys.drv", "EnableAutoAcquireOPL3", "1")
    @WriteProfString("@SysIni", "sndsys.drv", "UsePnP", "0")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "Default DMA", "1")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "Default I/O", "530")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @WriteProfString("@SysIni", "sndsys.drv", "Default IRQ", "7")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @If(@FullDuplex == @false)
        @WriteProfString("@SysIni", "sndsys.drv", "Duplex", "Half")
        @WriteProfString("@SysIni", "sndsys.drv", "DMADAC", "@MainDMA")
        @WriteProfString("@SysIni", "sndsys.drv", "DMAADC", "@MainDMA")
    @Endif


    // Added 3/5 for Full Duplex
    @If(@FullDuplex == @true)
        @WriteProfString("@SysIni", "sndsys.drv", "Duplex", "Full")
        @WriteProfString("@SysIni", "sndsys.drv", "DMADAC", "@MainDMA")
        @WriteProfString("@SysIni", "sndsys.drv", "DMAADC", "@RecDMA")
    @Endif

    @WriteProfString("@SysIni", "sndsys.drv", "IOAddress", "@MainPort")
    @WriteProfString("@SysIni", "sndsys.drv", "Interrupt", "@MainIRQ")



//  Remove any TBS-2000 drivers

    @RemoveDriver("@SysIni", "WAVE", "@DrvPath\\tbs2000.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\tbsfm.drv")
    @RemoveDriver("@SysIni", "AUX", "@DrvPath\\tbs2000.drv")
    @RemoveDriver("@SysIni", "MIXER", "@DrvPath\\tbs2000.drv")
    @RemoveDriver("@SysIni", "JOYSTICK", "@DrvPath\\ibmjoy.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\mpu401.drv")

//        @removeline("@SysIni","","device","vsndsys.386",";")
//        @removeline("@SysIni","tropmidi.drv","","".";")

//  Remove any Tropez Plus drivers from a previous install

    @RemoveDriver("@SysIni", "WAVE", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\tbsfm.drv")
    @RemoveDriver("@SysIni", "AUX", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "MIXER", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "JOYSTICK", "@DrvPath\\ibmjoy.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\wf2001.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\wffx.drv")

//  Remove any Tropez drivers

    @RemoveDriver("@SysIni", "WAVE", "@DrvPath\\tropez.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\tropez.drv")
    @RemoveDriver("@SysIni", "AUX", "@DrvPath\\tropez.drv")
    @RemoveDriver("@SysIni", "MIXER", "@DrvPath\\tropez.drv")
    @RemoveDriver("@SysIni", "JOYSTICK", "@DrvPath\\ibmjoy.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\tropmidi.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\opl3.drv")

//        @removeline("@SysIni","","device","vsndsys.386",";")
//        @removeline("@SysIni","tropmidi.drv","","".";")


    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @EstablishDriver("@SysIni", "WAVE", "@DrvPath\\tbs2001.drv")
    @EstablishDriver("@SysIni", "MIDI", "@DrvPath\\tbsfm.drv")
    @EstablishDriver("@SysIni", "AUX", "@DrvPath\\tbs2001.drv")
    @EstablishDriver("@SysIni", "MIXER", "@DrvPath\\tbs2001.drv")
    @EstablishDriver("@SysIni", "JOYSTICK", "@DrvPath\\ibmjoy.drv")
    @EstablishDriver("@SysIni", "MIDI", "@DrvPath\\wf2001.drv")
    @EstablishDriver("@SysIni", "MIDI", "@DrvPath\\wffx.drv")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    // set up msmixmgr.dll in system.ini
    @BootLine = @GetProfString("@SysIni", "boot", "drivers")

    @if ((@StrFind("@BootLine", "msmixmgr.dll") == -1) &&
        (@StrFind("@BootLine", "MSMIXMGR.DLL") == -1))
        @WriteProfString("@SysIni", "boot", "drivers", "@BootLine msmixmgr.dll")
    @endif

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

@endif  // this is windows install

@goto BEGIN_FINISH_BLOCK

// ******************************************
// Uninstall routine
// ******************************************

UNINSTALL:

    @Row = 0
    @Col = 0;


    @chdrive(@OutDrive)
    @chdir("\\")

    @if (@System("deltree /y @OutDrive:@SubDir\\drv ") == -1)
        @Display
    Could not load command processor! Probably not enough memory.
            @pause
        @EndDisplay
    @EndIf

    @if (@System("deltree /y @OutDrive:@SubDir\\dosapps") == -1)
        @Display
    Could not load command processor! Probably not enough memory.
            @pause
        @EndDisplay
    @EndIf

//        @if (@System("deltree /y @OutDrive:@SubDir\\winapps") == -1)
//                @Display
//        Could not load command processor! Probably not enough memory.
//                        @pause
//                @EndDisplay
//        @EndIf

    @if (@System("deltree /y @OutDrive:@SubDir\\wf") == -1)
        @Display
    Could not load command processor! Probably not enough memory.
            @pause
        @EndDisplay
    @EndIf



    @if (@exists("@OutDrive:@SubDir\\dosapps\\tbs2001.exe") != @TRUE)
        @if (@System("deltree /y @OutDrive:@SubDir\\drv") == -1)
            @Display
        Could not load command processor! Probably not enough memory.
                @pause
            @EndDisplay
        @endif
    @else
        @if (@System("deltree /y @OutDrive:@SubDir\\drv") == -1)
            @Display
        Could not load command processor! Probably not enough memory.
                @pause
            @EndDisplay
        @else  // the first deltree was successful
            @System("deltree /y @OutDrive:@SubDir\\drv")
            @System("deltree /y @OutDrive:@SubDir\\dosapps")
               // @System("deltree /y @OutDrive:@SubDir\\winapps")


        @EndIf
    @endif



    @if ( (@exists("@OutDrive:@SubDir\\drv\\tbs2001.drv") != @true)
        && (@exists("@OutDrive:@SubDir\\drv\\mpu401.drv") != @true)
        && (@exists("@OutDrive:@SubDir\\drv\\readme.wri") != @true) )
        @if (@System("deltree /y @OutDrive:@SubDir\\dosapps") == -1)
            @Display
        Could not load command processor! Probably not enough memory.
                @pause
            @EndDisplay
        @endif

    @else  // just delete dosapps dir, not whole tbeach dir.
        @if (@System("deltree /y @OutDrive:@SubDir\\dosapps") == -1)
            @Display
        Could not load command processor! Probably not enough memory.
                @pause
            @EndDisplay
        @endif
    @endif


    @DrvPath = "@OutDrive:@subdir\\drv"

    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Deleting tbs2001.ini file from @EnteredWinDir directory")

    @Delete("@EnteredWinDrive:@EnteredWinDir\\tbs2001.ini")

    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Deleting tropezp.ini file from @EnteredWinDir directory")

    @Delete("@EnteredWinDrive:@EnteredWinDir\\tropezp.ini")



    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Deleting lines from system.ini")


    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")


    @RemoveDriver("@SysIni", "WAVE", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\wf2001.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\tbsfm.drv")
    @RemoveDriver("@SysIni", "AUX", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "MIXER", "@DrvPath\\tbs2001.drv")
    @RemoveDriver("@SysIni", "JOYSTICK", "@DrvPath\\ibmjoy.drv")
    @RemoveDriver("@SysIni", "MIDI", "@DrvPath\\wffx.drv")


    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")

    @removeline("@SysIni", "", "device", "vsndsys.386", ";")


    // Remove whole sections.
    @removeline("@SysIni", "ibmjoy.drv", "", "", ";")
    @removeline("@SysIni", "tbsfm.drv", "", "", ";")
    @removeline("@SysIni", "wf2001.drv", "", "", ";")
    @removeline("@SysIni", "sndsys.drv", "", "", ";")
    //@removeline("@SysIni", "mpu401.drv", "", "", ";")


    @Row = (@Row + 2)
    @movecstr(@Row, 1, 31, "Deleting files from autoexec.bat and config.sys")

    @removeline("@bootdrive:\\autoexec.bat", "", "setupsnd", "", "REM")
    @removeline("@bootdrive:\\autoexec.bat", "", "tbsmix", "", "REM")
    @removeline("@bootdrive:\\autoexec.bat", "", "BLASTER", "", "REM")

    //@removeline("@bootdrive:\\autoexec.bat", "", "wfdos", "", "REM")

    //@removeline("@bootdrive:\\autoexec.bat", "", "mchkmix", "", "REM")
    @removeline("@bootdrive:\\config.sys", "", "device", "tbs2001", "REM")

    @removepath("@bootdrive:\\autoexec.bat", "path", "@SubDir", "rem")

    @Col = (@Col + 1)
    @movecstr((@Row+1), @Col, 31, ".")


 //       @Delete("@OutDrive:@SubDir")

    @Display
        @Cls

  Uninstallation completed successfully.


                  @Pause
    @EndDisplay



@goto ENDOFFILE


BEGIN_FINISH_BLOCK:

@Display
    @Cls
@EndDisplay


@TropezIni = "@EnteredWinDrive:@EnteredWinDir\\tbs2001.ini"


@Finish
    // make all system.ini/autoexec.bat/config.sys changes that could not be made above

    //Please wait while further changes are made.

    @if(@DOSInstall == @true)
        @if(@putmcmode1st("TBS2001", "@bootdrive:\\config.sys", "DEVICE=@outdrive:@subdir\\DOSAPPS\\TBS2001.EXE /O")) @endif
        @if(@putmcmode1st("TBSMIX", "@bootdrive:\\autoexec.bat", "@outdrive:@subdir\\DOSAPPS\\TBSMIX.EXE /M=15 /W=12 /F=15 /L=12 /C=12")) @endif
        @if(@putmcmode1st("SETUPSND", "@bootdrive:\\autoexec.bat", "@outdrive:@subdir\\DOSAPPS\\SETUPSND.EXE @outdrive:@subdir\\DOSAPPS\\WFOS2001.MOT"))
    @endif

   @if (@WindowsInstall == @TRUE)

    @WriteProfString("@EnteredWinDrive:@EnteredWinDir\\wfpatch.ini", "Autoload Banks", "TBS-2001", "@OutDrive:\\@Subdir\\wf\\gm_2001.wfb")
    @WriteProfString("@EnteredWinDrive:@EnteredWinDir\\wfpatch.ini", "Autoload Banks", "TBS-2001 1", "@OutDrive:\\@Subdir\\wf\\gm_2001.wfb")
    @WriteProfString("@EnteredWinDrive:@EnteredWinDir\\wfpatch.ini", "Autoload Banks", "TBS-2001 2", "@OutDrive:\\@Subdir\\wf\\gm_2001.wfb")


     @if((1[=@option) || (2[=@option))  // we are installing. Either a
                        // Quick install or Custom.


        @if(@WriteProfString("@EnteredWinDrive:@EnteredWinDir\\tbs2001.ini",
            "install", "InstallPath", "@OutDrive:@subdir"))
        @endif

            // Set up Windows program group and items

            // WaveFront Control Panel.
            @if(@WriteProfString("@TropezIni", "ProgramItems", "ControlPanel",
                "@OutDrive:@subdir\\wf\\wfcp.exe"))
            @endif

            // ReadMe file
            @if(@WriteProfString("@TropezIni", "ProgramItems", "ReleaseNotes",
                "write @OutDrive:@subdir\\drv\\readme.wri"))
            @endif

            // Configure Program
            @if(@WriteProfString("@TropezIni", "ProgramItems", "config",
                "@OutDrive:@subdir\\dosapps\\config.exe"))
            @endif

            // We want Program groups and items to be set up the next time Windows is run
            @if(@WriteProfString("@EnteredWinDrive:@EnteredWinDir\\win.ini", "windows", "run",
            "@OutDrive:@subdir\\dosapps\\winsetup.exe"))
            @endif

            // end of stuff I added

        // the following is for uninstall; it will know what to put for default uninstall directory
        @write("@OutDrive:\\tzuninst.ini","wt","[dummy section]\n")

        @if(@WriteProfString("@OutDrive:\\tzuninst.ini", "install", "InstallDrive", "@OutDrive"))
        @endif

        @if(@WriteProfString("@OutDrive:\\tzuninst.ini", "install", "InstallSubdir", "@subdir"))
        @endif

        // copy correct midimapper in!

        @Delete("@EnteredWinDrive:@EnteredWinDir\\system\\midimap.old")
        @Rename("@EnteredWinDrive:@EnteredWinDir\\system\\midimap.cfg",
               "midimap.old")
        @Rename("@EnteredWinDrive:@EnteredWinDir\\system\\midimap.std",
               "midimap.cfg")

     @endif   // Installing

   @endif  //Windos Install

//@endif
    @ChDrive @OutDrive
    @ChDir "@SubDir"


    Your @ActionStr is complete. Be sure to reboot your machine
    before trying to use your Tropez Plus!

    @Pause

     @ActionStr of @Name is now finished.

@EndFinish

ENDOFFILE:

/* end-of-file */